home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group3 / OCXSESSI.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-01  |  5.8 KB  |  204 lines
  1. VERSION 4.00
  2. Begin VB.Form SessionForm 
  3.    Caption         =   "Mail X Session Form"
  4.    ClientHeight    =   3075
  5.    ClientLeft      =   1185
  6.    ClientTop       =   1815
  7.    ClientWidth     =   6390
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   0
  11.       weight          =   700
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   3450
  18.    Left            =   1140
  19.    LinkTopic       =   "Form2"
  20.    ScaleHeight     =   3075
  21.    ScaleWidth      =   6390
  22.    Top             =   1485
  23.    Width           =   6480
  24.    Begin VB.CommandButton Command3 
  25.       Caption         =   "Delete Recipient"
  26.       Height          =   375
  27.       Left            =   4320
  28.       TabIndex        =   10
  29.       Top             =   2520
  30.       Width           =   1815
  31.    End
  32.    Begin VB.CommandButton Command2 
  33.       Caption         =   "Fetch Next"
  34.       Height          =   375
  35.       Left            =   2160
  36.       TabIndex        =   9
  37.       Top             =   2520
  38.       Width           =   2055
  39.    End
  40.    Begin VB.CommandButton Command1 
  41.       Caption         =   "Fetch First"
  42.       Height          =   375
  43.       Left            =   240
  44.       TabIndex        =   8
  45.       Top             =   2520
  46.       Width           =   1695
  47.    End
  48.    Begin VB.CommandButton BtnAddressDialog 
  49.       Caption         =   "Address Dialog"
  50.       Height          =   375
  51.       Left            =   4320
  52.       TabIndex        =   4
  53.       Top             =   1920
  54.       Width           =   1815
  55.    End
  56.    Begin VB.CommandButton BtnAdd 
  57.       Caption         =   "Add Resolved Names"
  58.       Height          =   375
  59.       Left            =   2160
  60.       TabIndex        =   3
  61.       Top             =   1920
  62.       Width           =   2055
  63.    End
  64.    Begin VB.CommandButton BtnResolve 
  65.       Caption         =   "ResolveNames"
  66.       Height          =   375
  67.       Left            =   240
  68.       TabIndex        =   2
  69.       Top             =   1920
  70.       Width           =   1695
  71.    End
  72.    Begin VB.TextBox szResolveText 
  73.       Height          =   330
  74.       Left            =   2220
  75.       TabIndex        =   1
  76.       Top             =   660
  77.       Width           =   3930
  78.    End
  79.    Begin Mailx16Lib.MReci MReci1 
  80.       Left            =   4920
  81.       Top             =   1200
  82.       _Version        =   65542
  83.       _ExtentX        =   900
  84.       _ExtentY        =   900
  85.       _StockProps     =   0
  86.       AddressCaption  =   "Mail X Address Caption "
  87.       BindString      =   "MMsg1"
  88.       FetchType       =   1
  89.    End
  90.    Begin Mailx16Lib.MMsg MMsg1 
  91.       Left            =   3240
  92.       Top             =   1200
  93.       _Version        =   65542
  94.       _ExtentX        =   900
  95.       _ExtentY        =   900
  96.       _StockProps     =   0
  97.       SortMsg         =   0   'False
  98.       MarkAsRead      =   0   'False
  99.       DisplaySendDialog=   0   'False
  100.       BindString      =   "MSess1"
  101.       FastFetch       =   -1  'True
  102.    End
  103.    Begin Mailx16Lib.MSess MSess1 
  104.       Left            =   5520
  105.       Top             =   0
  106.       _Version        =   65542
  107.       _ExtentX        =   900
  108.       _ExtentY        =   900
  109.       _StockProps     =   0
  110.    End
  111.    Begin Mailx16Lib.MForm MForm2 
  112.       Left            =   120
  113.       Top             =   120
  114.       _Version        =   65542
  115.       _ExtentX        =   3598
  116.       _ExtentY        =   500
  117.       _StockProps     =   0
  118.       MXFormName      =   "FormTag1"
  119.    End
  120.    Begin VB.Label nCount 
  121.       Height          =   315
  122.       Left            =   1995
  123.       TabIndex        =   7
  124.       Top             =   1260
  125.       Width           =   795
  126.    End
  127.    Begin VB.Label Label3 
  128.       Caption         =   "Recipient Count:"
  129.       Height          =   300
  130.       Left            =   180
  131.       TabIndex        =   6
  132.       Top             =   1260
  133.       Width           =   1665
  134.    End
  135.    Begin VB.Label Label2 
  136.       Caption         =   "(Introduce a List: Name1;Name2; etc)"
  137.       Height          =   285
  138.       Left            =   2205
  139.       TabIndex        =   5
  140.       Top             =   285
  141.       Width           =   3420
  142.    End
  143.    Begin VB.Label Label1 
  144.       Caption         =   "Address To Resolve:"
  145.       Height          =   285
  146.       Left            =   150
  147.       TabIndex        =   0
  148.       Top             =   690
  149.       Width           =   1995
  150.    End
  151. Attribute VB_Name = "SessionForm"
  152. Attribute VB_Creatable = False
  153. Attribute VB_Exposed = False
  154. Private Sub BtnAdd_Click()
  155.     MReci1.Action = ACTION_ADDRECIPIENT
  156.     UpdateCount
  157.     UpdateText
  158. End Sub
  159. Private Sub BtnAddressDialog_Click()
  160.     MReci1.Action = ACTION_ADDRESS
  161.     UpdateCount
  162.     UpdateText
  163. End Sub
  164. Private Sub BtnResolve_Click()
  165.     MReci1.ResolveName = szResolveText
  166.     szResolveText = MReci1.ResolveName
  167. End Sub
  168. Private Sub Command1_Click()
  169.     If MReci1.RecipientCount > 0 Then
  170.         MReci1.RecipientNum = 1
  171.         UpdateText
  172.     Else
  173.         MsgBox "Mail X Recipient Control is Empty"
  174.     End If
  175. End Sub
  176. Private Sub Command2_Click()
  177.     NextR = MReci1.RecipientNum + 1
  178.     If NextR <= MReci1.RecipientCount Then
  179.         MReci1.RecipientNum = NextR
  180.         UpdateText
  181.     Else
  182.         MsgBox "Last Recipient Reached"
  183.     End If
  184. End Sub
  185. Private Sub Command3_Click()
  186.     MReci1.Action = ACTION_DEL_RECIPIENT
  187.     UpdateCount
  188.     UpdateText
  189. End Sub
  190. Private Sub Form_Load()
  191.     Load SystemX
  192.     SystemX.MsMail = False
  193.     SystemX.Show 1
  194.     MSess1.Logon = True
  195.     If MSess1.Logon = False Then End
  196.     UpdateCount
  197. End Sub
  198. Private Sub UpdateCount()
  199.     nCount = MReci1.RecipientCount
  200. End Sub
  201. Private Sub UpdateText()
  202.     szResolveText = MReci1.RecipientName
  203. End Sub
  204.